<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>Template Units For Numerical Applications</title>
<link href="TUNAstyles.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
<style type="text/css">

.cabeza_cell {
  border-left: 1px solid #000000;
  border-right: 1px solid #000000;
  border-bottom: 1px solid #000000;
  border-top: 1px solid #000000;
  font-family: Arial,Helvetica,sans-serif;
  font-size: 11pt;
  background-color: #ffffff;
  font-weight: lighter;
  color: #000000;
  text-decoration: none;
}
</style>

</head><body>
<div>
<table align="center" width="640" border="0" cellspacing="2" cellpadding="5" class="border">
<tr>
 <td class="cabeza_cell"> 

  <font style="font-family: helvetica; color: #000000;" size=4>
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>TUNA</font> :
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>T</font>emplate
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>U</font>nits for
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>N</font>umerical 
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>A</font>pplications
 </font><br>
  
</td>
</tr>

<tr>
<td class="cabeza_cell">
 <span style="font-family: helvetica; color: #336699;">
 Documentation Ver 1.0.0 August 2011 by
 <a href="http://mmc.geofisica.unam.mx/luiggi">Luis M. de la Cruz</a> <br>
 <a href="http://mmc.geofisica.unam.mx"> GMMC </a> -
 <a href="http://www.geofisica.unam.mx/recnat/"> Depto. de Recursos Naturales </a> -
 <a href="http://www.geofisica.unam.mx"> Instituto de Geof&iacute;sica </a> -
 <a href="http://www.unam.mx"> UNAM </a><br>
 </span>
 </td>

</tr>

</table>
</div>
<br>
<!-- Generated by Doxygen 1.7.4 -->
<script type="text/javascript"><!--
var searchBox = new SearchBox("searchBox", "search",false,'Search');
--></script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Classes</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li id="searchli">
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
<div class="header">
  <div class="headertitle">
<div class="title">Examples/09FlowInPorousMedia/FS/BLIP1P.hpp</div>  </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="preprocessor">#ifndef _BLIP1P_H_</span>
<a name="l00002"></a>00002 <span class="preprocessor"></span><span class="preprocessor">#define _BLIP1P_H_</span>
<a name="l00003"></a>00003 <span class="preprocessor"></span>
<a name="l00004"></a>00004 <span class="preprocessor">#include &quot;./TwoPhaseEquation.hpp&quot;</span>
<a name="l00005"></a>00005 
<a name="l00006"></a>00006 <span class="keyword">namespace </span>Tuna {
<a name="l00007"></a>00007 
<a name="l00008"></a>00008   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T, <span class="keywordtype">int</span> Dim&gt; <span class="keyword">class </span>BLIP1P;
<a name="l00009"></a>00009 
<a name="l00010"></a>00010   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00011"></a>00011   <span class="keyword">struct </span>Typeinfo &lt;BLIP1P&lt;T, 1&gt; &gt; {
<a name="l00012"></a>00012     <span class="keyword">typedef</span> T prec_t;
<a name="l00013"></a>00013     <span class="keyword">enum</span> { Dim = 1 };
<a name="l00014"></a>00014   };
<a name="l00015"></a>00015 
<a name="l00016"></a>00016   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00017"></a>00017   <span class="keyword">struct </span>Typeinfo &lt;BLIP1P&lt;T, 2&gt; &gt; {
<a name="l00018"></a>00018     <span class="keyword">typedef</span> T prec_t;
<a name="l00019"></a>00019     <span class="keyword">enum</span> { Dim = 2 };
<a name="l00020"></a>00020   };
<a name="l00021"></a>00021 
<a name="l00022"></a>00022   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00023"></a>00023   <span class="keyword">struct </span>Typeinfo &lt;BLIP1P&lt;T, 3&gt; &gt; {
<a name="l00024"></a>00024     <span class="keyword">typedef</span> T prec_t;
<a name="l00025"></a>00025     <span class="keyword">enum</span> { Dim = 3 };
<a name="l00026"></a>00026   };
<a name="l00027"></a>00027 
<a name="l00028"></a>00028   
<a name="l00029"></a>00029   <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00030"></a>00030   <span class="keyword">class </span>BLIP1P : <span class="keyword">public</span> TwoPhaseEquation&lt;BLIP1P&lt;Tprec, Dim&gt; &gt;
<a name="l00031"></a>00031   {
<a name="l00032"></a>00032 
<a name="l00033"></a>00033     <span class="keyword">typedef</span> TwoPhaseEquation&lt;BLIP1P&lt;Tprec, Dim&gt; &gt; TP_BLIP1P;
<a name="l00034"></a>00034     
<a name="l00035"></a>00035     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aE;
<a name="l00036"></a>00036     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aW;
<a name="l00037"></a>00037     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aN;
<a name="l00038"></a>00038     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aS;
<a name="l00039"></a>00039     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aF;
<a name="l00040"></a>00040     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aB;
<a name="l00041"></a>00041     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::aP;
<a name="l00042"></a>00042     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::sp;
<a name="l00043"></a>00043     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::dx;
<a name="l00044"></a>00044     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::dy;
<a name="l00045"></a>00045     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::dz;
<a name="l00046"></a>00046     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::bi;
<a name="l00047"></a>00047     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::ei;
<a name="l00048"></a>00048     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::bj;
<a name="l00049"></a>00049     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::ej;
<a name="l00050"></a>00050     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::bk;
<a name="l00051"></a>00051     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::ek;
<a name="l00052"></a>00052     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::applyBoundaryConditions1D;
<a name="l00053"></a>00053     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::applyBoundaryConditions2D;
<a name="l00054"></a>00054     <span class="keyword">using</span> GeneralEquation&lt; TP_BLIP1P &gt;::applyBoundaryConditions3D;
<a name="l00055"></a>00055 
<a name="l00056"></a>00056     <span class="keyword">using</span> TP_BLIP1P::S;
<a name="l00057"></a>00057     <span class="keyword">using</span> TP_BLIP1P::phi_0;
<a name="l00058"></a>00058     <span class="keyword">using</span> TP_BLIP1P::Srw;
<a name="l00059"></a>00059     <span class="keyword">using</span> TP_BLIP1P::Sro;
<a name="l00060"></a>00060     <span class="keyword">using</span> TP_BLIP1P::mu_w;
<a name="l00061"></a>00061     <span class="keyword">using</span> TP_BLIP1P::mu_o;
<a name="l00062"></a>00062     <span class="keyword">using</span> TP_BLIP1P::k;
<a name="l00063"></a>00063     <span class="keyword">using</span> TP_BLIP1P::rank;
<a name="l00064"></a>00064     <span class="keyword">using</span> TP_BLIP1P::size;
<a name="l00065"></a>00065     <span class="keyword">using</span> TP_BLIP1P::injection;
<a name="l00066"></a>00066 
<a name="l00067"></a>00067   <span class="keyword">public</span>:
<a name="l00068"></a>00068     <span class="keyword">typedef</span> Tprec prec_t;
<a name="l00069"></a>00069     <span class="keyword">typedef</span> <span class="keyword">typename</span> TunaArray&lt;prec_t, Dim &gt;::huge ScalarField;
<a name="l00070"></a>00070     
<a name="l00071"></a>00071     BLIP1P() : TwoPhaseEquation&lt;BLIP1P&lt;prec_t, Dim &gt; &gt;() { }    
<a name="l00072"></a>00072     ~BLIP1P() { };
<a name="l00073"></a>00073     
<a name="l00074"></a>00074     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients1D(); 
<a name="l00075"></a>00075     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients2D();
<a name="l00076"></a>00076     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients3D();
<a name="l00077"></a>00077     <span class="keyword">inline</span> <span class="keywordtype">void</span> printInfo() { std::cout &lt;&lt; <span class="stringliteral">&quot; BLIP1P &quot;</span>; }
<a name="l00078"></a>00078   };
<a name="l00079"></a>00079   
<a name="l00080"></a>00080 <span class="comment">/*</span>
<a name="l00081"></a>00081 <span class="comment"> *  Lineal for realtive permeability , Upwind for Sw</span>
<a name="l00082"></a>00082 <span class="comment"> */</span>
<a name="l00083"></a>00083 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00084"></a>00084 <span class="keyword">inline</span> <span class="keywordtype">bool</span> BLIP1P&lt;Tprec, Dim&gt;::calcCoefficients1D () 
<a name="l00085"></a>00085 {
<a name="l00086"></a>00086     <span class="keyword">static</span> prec_t Sw_e, Sw_w;
<a name="l00087"></a>00087 
<a name="l00088"></a>00088     <span class="comment">// Lineal </span>
<a name="l00089"></a>00089     <span class="keyword">static</span> prec_t mult_o = k / ( (1 - Srw - Sro) * mu_o * dx ) ;
<a name="l00090"></a>00090     <span class="keyword">static</span> prec_t mult_w = k / ( (1 - Srw - Sro) * mu_w * dx ) ;
<a name="l00091"></a>00091 
<a name="l00092"></a>00092     aE = 0.0; aW = 0.0; aP = 0.0; sp = 0.0;
<a name="l00093"></a>00093 
<a name="l00094"></a>00094     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i) {  
<a name="l00095"></a>00095 
<a name="l00096"></a>00096       <span class="comment">// Upwind</span>
<a name="l00097"></a>00097       <span class="keywordflow">if</span> ( phi_0(i+1) &gt;= phi_0(i) ) Sw_e = S(i+1);
<a name="l00098"></a>00098       <span class="keywordflow">else</span>                          Sw_e = S(i);
<a name="l00099"></a>00099       <span class="keywordflow">if</span> ( phi_0(i-1) &gt;= phi_0(i) ) Sw_w = S(i-1);
<a name="l00100"></a>00100       <span class="keywordflow">else</span>                          Sw_w = S(i);
<a name="l00101"></a>00101       
<a name="l00102"></a>00102       <span class="comment">// Lineal</span>
<a name="l00103"></a>00103       aE (i) = (1 - Sro - Sw_e) * mult_o + (Sw_e - Srw) * mult_w ;
<a name="l00104"></a>00104       aW (i) = (1 - Sro - Sw_w) * mult_o + (Sw_w - Srw) * mult_w ;
<a name="l00105"></a>00105       aP (i) = aE (i) + aW (i);      
<a name="l00106"></a>00106     }
<a name="l00107"></a>00107     applyBoundaryConditions1D();
<a name="l00108"></a>00108     <span class="keywordflow">return</span> 0;
<a name="l00109"></a>00109 }
<a name="l00110"></a>00110 
<a name="l00111"></a>00111 <span class="comment">/*</span>
<a name="l00112"></a>00112 <span class="comment"> *  Lineal for relative permeability , Upwind for Sw</span>
<a name="l00113"></a>00113 <span class="comment"> */</span>
<a name="l00114"></a>00114 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00115"></a>00115 <span class="keyword">inline</span> <span class="keywordtype">bool</span> BLIP1P&lt;Tprec, Dim&gt;::calcCoefficients2D () 
<a name="l00116"></a>00116 {
<a name="l00117"></a>00117   <span class="keyword">static</span> prec_t Sw_e, Sw_w, Sw_n, Sw_s;
<a name="l00118"></a>00118 
<a name="l00119"></a>00119     <span class="comment">// Lineal </span>
<a name="l00120"></a>00120     <span class="keyword">static</span> prec_t mult_o = k / ( (1 - Srw - Sro) * mu_o ) ;
<a name="l00121"></a>00121     <span class="keyword">static</span> prec_t mult_w = k / ( (1 - Srw - Sro) * mu_w ) ;
<a name="l00122"></a>00122     <span class="keyword">static</span> prec_t dx_dy = dx / dy;
<a name="l00123"></a>00123     <span class="keyword">static</span> prec_t dy_dx = dy / dx;
<a name="l00124"></a>00124 
<a name="l00125"></a>00125     aE = 0.0; aW = 0.0; aN = 0.0; aS = 0.0; aP = 0.0; sp = 0.0;
<a name="l00126"></a>00126 
<a name="l00127"></a>00127 
<a name="l00128"></a>00128     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i)
<a name="l00129"></a>00129       <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = bj; j &lt;= ej; ++j) {  
<a name="l00130"></a>00130         <span class="comment">// Upwind</span>
<a name="l00131"></a>00131         <span class="keywordflow">if</span> ( phi_0(i+1, j) &gt;= phi_0(i, j) ) Sw_e = S(i+1, j);
<a name="l00132"></a>00132         <span class="keywordflow">else</span>                                Sw_e = S(i,   j);
<a name="l00133"></a>00133         <span class="keywordflow">if</span> ( phi_0(i-1, j) &gt;= phi_0(i, j) ) Sw_w = S(i-1, j);
<a name="l00134"></a>00134         <span class="keywordflow">else</span>                                Sw_w = S(i,   j);
<a name="l00135"></a>00135 
<a name="l00136"></a>00136         <span class="keywordflow">if</span> ( phi_0(i, j+1) &gt;= phi_0(i, j) ) Sw_n = S(i, j+1);
<a name="l00137"></a>00137         <span class="keywordflow">else</span>                                Sw_n = S(i,   j);
<a name="l00138"></a>00138         <span class="keywordflow">if</span> ( phi_0(i, j-1) &gt;= phi_0(i, j) ) Sw_s = S(i, j-1);
<a name="l00139"></a>00139         <span class="keywordflow">else</span>                                Sw_s = S(i,   j);
<a name="l00140"></a>00140       
<a name="l00141"></a>00141       <span class="comment">// Lineal</span>
<a name="l00142"></a>00142         aE (i, j) = ( (1 - Sro - Sw_e) * mult_o +
<a name="l00143"></a>00143                       (Sw_e - Srw) * mult_w ) * dy_dx;
<a name="l00144"></a>00144         aW (i, j) = ( (1 - Sro - Sw_w) * mult_o + 
<a name="l00145"></a>00145                       (Sw_w - Srw) * mult_w ) * dy_dx;
<a name="l00146"></a>00146         aN (i, j) = ( (1 - Sro - Sw_n) * mult_o + 
<a name="l00147"></a>00147                       (Sw_n - Srw) * mult_w ) * dx_dy;
<a name="l00148"></a>00148         aS (i, j) = ( (1 - Sro - Sw_s) * mult_o + 
<a name="l00149"></a>00149                       (Sw_s - Srw) * mult_w ) * dx_dy;
<a name="l00150"></a>00150         aP (i, j) = aE (i, j) + aW (i, j) + aN (i, j) + aS (i, j);
<a name="l00151"></a>00151 
<a name="l00152"></a>00152       }
<a name="l00153"></a>00153     
<a name="l00154"></a>00154     <span class="comment">// Source for injection on the four corners.</span>
<a name="l00155"></a>00155     <span class="keywordflow">if</span> (rank == 0)
<a name="l00156"></a>00156       sp (bi, bj) += injection * dx * dy;
<a name="l00157"></a>00157   
<a name="l00158"></a>00158     <span class="comment">//Sink for extraction on the middle point.</span>
<a name="l00159"></a>00159     <span class="keywordflow">if</span> (rank == size-1)
<a name="l00160"></a>00160       sp (ei, ej) -= injection * dx * dy;
<a name="l00161"></a>00161    
<a name="l00162"></a>00162     applyBoundaryConditions2D();
<a name="l00163"></a>00163     <span class="keywordflow">return</span> 0;
<a name="l00164"></a>00164 }
<a name="l00165"></a>00165 
<a name="l00166"></a>00166 <span class="comment">/*</span>
<a name="l00167"></a>00167 <span class="comment"> *  Lineal for relative permeability , Upwind for Sw</span>
<a name="l00168"></a>00168 <span class="comment"> */</span>
<a name="l00169"></a>00169 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00170"></a>00170 <span class="keyword">inline</span> <span class="keywordtype">bool</span> BLIP1P&lt;Tprec, Dim&gt;::calcCoefficients3D () 
<a name="l00171"></a>00171 {
<a name="l00172"></a>00172     <span class="keyword">static</span> prec_t Sw_e, Sw_w, Sw_n, Sw_s, Sw_f, Sw_b;
<a name="l00173"></a>00173 
<a name="l00174"></a>00174     <span class="comment">// Lineal </span>
<a name="l00175"></a>00175     <span class="keyword">static</span> prec_t mult_o = k / ( (1 - Srw - Sro) * mu_o ) ;
<a name="l00176"></a>00176     <span class="keyword">static</span> prec_t mult_w = k / ( (1 - Srw - Sro) * mu_w ) ;
<a name="l00177"></a>00177     <span class="keyword">static</span> prec_t dxdz_dy = dx * dz / dy;
<a name="l00178"></a>00178     <span class="keyword">static</span> prec_t dydz_dx = dy * dz / dx;
<a name="l00179"></a>00179     <span class="keyword">static</span> prec_t dxdy_dz = dx * dy / dz;
<a name="l00180"></a>00180 
<a name="l00181"></a>00181     aE = 0.0; aW = 0.0; aN = 0.0; aS = 0.0; aF = 0.0; aB = 0.0;
<a name="l00182"></a>00182     aP = 0.0; sp = 0.0;
<a name="l00183"></a>00183 
<a name="l00184"></a>00184     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ki = bk; ki &lt;= ek; ++ki) 
<a name="l00185"></a>00185       <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i) 
<a name="l00186"></a>00186         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = bj; j &lt;= ej; ++j) {
<a name="l00187"></a>00187           <span class="comment">// Upwind</span>
<a name="l00188"></a>00188           <span class="keywordflow">if</span> ( phi_0(i+1, j, ki) &gt;= phi_0(i, j, ki) ) Sw_e = S(i+1, j, ki);
<a name="l00189"></a>00189           <span class="keywordflow">else</span>                                        Sw_e = S(i,   j, ki);
<a name="l00190"></a>00190           <span class="keywordflow">if</span> ( phi_0(i-1, j, ki) &gt;= phi_0(i, j, ki) ) Sw_w = S(i-1, j, ki);
<a name="l00191"></a>00191           <span class="keywordflow">else</span>                                        Sw_w = S(i,   j, ki);
<a name="l00192"></a>00192           
<a name="l00193"></a>00193           <span class="keywordflow">if</span> ( phi_0(i, j+1, ki) &gt;= phi_0(i, j, ki) ) Sw_n = S(i, j+1, ki);
<a name="l00194"></a>00194           <span class="keywordflow">else</span>                                        Sw_n = S(i,   j, ki);
<a name="l00195"></a>00195           <span class="keywordflow">if</span> ( phi_0(i, j-1, ki) &gt;= phi_0(i, j, ki) ) Sw_s = S(i, j-1, ki);
<a name="l00196"></a>00196           <span class="keywordflow">else</span>                                        Sw_s = S(i,   j, ki);
<a name="l00197"></a>00197 
<a name="l00198"></a>00198           <span class="keywordflow">if</span> ( phi_0(i, j, ki+1) &gt;= phi_0(i, j, ki) ) Sw_f = S(i, j, ki+1);
<a name="l00199"></a>00199           <span class="keywordflow">else</span>                                        Sw_f = S(i, j, ki);
<a name="l00200"></a>00200           <span class="keywordflow">if</span> ( phi_0(i, j, ki-1) &gt;= phi_0(i, j, ki) ) Sw_b = S(i, j, ki-1);
<a name="l00201"></a>00201           <span class="keywordflow">else</span>                                        Sw_b = S(i, j, ki);
<a name="l00202"></a>00202           
<a name="l00203"></a>00203           <span class="comment">// Lineal</span>
<a name="l00204"></a>00204           aE (i, j, ki) = ( (1 - Sro - Sw_e) * mult_o + 
<a name="l00205"></a>00205                            (Sw_e - Srw) * mult_w ) * dydz_dx;
<a name="l00206"></a>00206           aW (i, j, ki) = ( (1 - Sro - Sw_w) * mult_o + 
<a name="l00207"></a>00207                            (Sw_w - Srw) * mult_w ) * dydz_dx;
<a name="l00208"></a>00208           aN (i, j, ki) = ( (1 - Sro - Sw_n) * mult_o + 
<a name="l00209"></a>00209                            (Sw_n - Srw) * mult_w ) * dxdz_dy;
<a name="l00210"></a>00210           aS (i, j, ki) = ( (1 - Sro - Sw_s) * mult_o + 
<a name="l00211"></a>00211                            (Sw_s - Srw) * mult_w ) * dxdz_dy;
<a name="l00212"></a>00212           aF (i, j, ki) = ( (1 - Sro - Sw_f) * mult_o + 
<a name="l00213"></a>00213                            (Sw_f - Srw) * mult_w ) * dxdy_dz;
<a name="l00214"></a>00214           aB (i, j, ki) = ( (1 - Sro - Sw_b) * mult_o + 
<a name="l00215"></a>00215                            (Sw_b - Srw) * mult_w ) * dxdy_dz;     
<a name="l00216"></a>00216           aP (i, j, ki) = aE (i, j, ki) + aW (i, j, ki) + 
<a name="l00217"></a>00217                           aN (i, j, ki) + aS (i, j, ki) + 
<a name="l00218"></a>00218                           aF (i, j, ki) + aB (i, j, ki);
<a name="l00219"></a>00219         }        
<a name="l00220"></a>00220     applyBoundaryConditions3D();
<a name="l00221"></a>00221     <span class="keywordflow">return</span> 0;
<a name="l00222"></a>00222 }
<a name="l00223"></a>00223 
<a name="l00224"></a>00224 } <span class="comment">// Tuna namespace</span>
<a name="l00225"></a>00225 
<a name="l00226"></a>00226 
<a name="l00227"></a>00227 <span class="preprocessor">#endif //_BLIP1P_H_</span>
<a name="l00228"></a>00228 <span class="preprocessor"></span>
<a name="l00229"></a>00229 
<a name="l00230"></a>00230 
<a name="l00231"></a>00231 
<a name="l00232"></a>00232 
<a name="l00233"></a>00233 
<a name="l00234"></a>00234 
<a name="l00235"></a>00235 
<a name="l00236"></a>00236 
<a name="l00237"></a>00237 
<a name="l00238"></a>00238 
<a name="l00239"></a>00239 
<a name="l00240"></a>00240 
<a name="l00241"></a>00241 
<a name="l00242"></a>00242 
<a name="l00243"></a>00243 
<a name="l00244"></a>00244 
</pre></div></div>
</div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Typedefs</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>



<hr size="1">
<div align="center">
Last modification: Sun Aug 28 09:57:21 CDT 2011
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&copy; 2011 LMCS-UNAM
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Generated by <a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="top" border="0" height="25"></a> 1.6.1 </div>

